home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / poptest.mod < prev    next >
Text File  |  1995-11-25  |  1KB  |  45 lines
  1. MODULE PopTest;
  2.  
  3. FROM SYSTEM       IMPORT ADR,ADDRESS,VAL;
  4.  
  5.  
  6. FROM AES          IMPORT ResourceGetAddr,GrafMouseKeyboardState;
  7.  
  8. FROM Applications IMPORT Init,Terminate,deskx,desky,deskw,deskh,
  9.                          InitResource,ShowMenuBar,ShowNormal,DeskTree,
  10.                          MenuTree,Colour,Appl,EventMessage,messagetype;
  11.  
  12. FROM PopUpMenu IMPORT PopUp,PopUpMenuItemEnable,PopUpMenuItemCheck;
  13. VAR RSCfileName : ARRAY [0..79] OF CHAR;
  14.     OK : BOOLEAN;
  15.     Adr,retas :ADDRESS;
  16.     i, mx,my,dummy:INTEGER;
  17.     MenuStr : ARRAY [0..20] OF CHAR;
  18.  
  19. CONST
  20.       TREE1 = 0;      (* TREE *)
  21.       CHANGE = 5;      (* OBJECT in TREE #0 *)
  22.       QUIT = 7;      (* OBJECT in TREE #0 *)
  23.       DISABLE = 8;      (* OBJECT in TREE #0 *)
  24.       CHECK = 9;      (* OBJECT in TREE #0 *)
  25. ə
  26.  
  27. BEGIN
  28.     RSCfileName :='Popup.RSC';
  29.     MenuStr :="  Neuer Text   ";
  30.     Init;
  31.     OK:=InitResource(-1,-1,RSCfileName);
  32.     ResourceGetAddr(0,TREE1,Adr);
  33.     REPEAT
  34.        GrafMouseKeyboardState(mx,my,dummy,dummy);
  35.        i:=PopUp(mx,my,Adr);
  36.        CASE i OF
  37.             DISABLE : PopUpMenuItemEnable(Adr,DISABLE,FALSE)
  38.             |CHECK : PopUpMenuItemCheck(Adr,CHECK,TRUE)
  39.             |CHANGE : (*PopUpMenuText(Adr,CHANGE,MenuStr)*);
  40.             ELSE
  41.       END(*CASE*);
  42.     UNTIL i=QUIT;
  43.     Terminate;
  44. END PopTest.
  45.